home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1988 February / 64er_Magazin_88-02_1988_Markt__Technik_de_Side_A.d64 / x^5-julia-mengen (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  558b  |  17 lines
  1. 10 rem ****************************
  2. 20 rem *   julia-mengen (x^5)     *
  3. 30 rem * 1987 by stefan vilsmeier *
  4. 40 rem ****************************
  5. 110 :
  6. 240 xa=1:ya=0:xb=.309017:yb=.9510565:xc=-(xb+.5):yc=.5877825
  7. 245 xd=xc:yd=-yc:xe=xb:ye=-yb
  8. 410 : if (zz<8andint(zz/2)=zz/2)or(f=0andzz>=13)then sys 50182,xx,yy,1
  9. 552 za = za-5*((x-xd)*(x-xd)+(y-yd)*(y-yd)<=ep)
  10. 554 za = za-6*((x-xe)*(x-xe)+(y-ye)*(y-ye)<=ep)
  11. 580 n  = n*n*n*n:xy  = x
  12. 590 x  = .8*xy+.2*(xq*xq-6*xq*yq+yq*yq)/n
  13. 595 y  = .8*(y+(xy*y*yq-xy*y*xq)/n)
  14. 620 f  = -(n<1e-5)
  15. 630 if f=0 then f=-(n>1e+5)
  16. 640 if f=0 then f=za
  17.